PC World 2002 May/PCWorld_2002-05_cd.bin/Novinky/grada/Aplikace/Otazky.dxr/00100_Ovládání zpìt - otázky.ls

Text File | 2002-04-14 | 703 b | 34 lines

property Tlacitko
global Posledni_menu

on beginSprite me
  set the visible of sprite the spriteNum of me to 1
end

on endSprite me
end

on mouseEnter me
  puppetSound(1, "Najezd")
  set the cursor of sprite the spriteNum of me to [member "ruka_1", member "ruka_2"]
  set Tlacitko to the castNum of sprite the spriteNum of me
  if Tlacitko > 0 then
    set the member of sprite the spriteNum of me to member (Tlacitko + 1)
  end if
end

on mouseLeave me
  set the cursor of sprite the spriteNum of me to -1
  if Tlacitko > 0 then
    set the member of sprite the spriteNum of me to member Tlacitko
  end if
end

on mouseDown me
  puppetSound(1, "Klik")
end

on mouseUp me
  go(label(Posledni_menu))
end